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TITLE vansep tire = VAY-11 EDITPC Instruction Emulation 
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Facility: 
VAX-11 Instruction Emulator 

Abstract: 
The routines in this module emulate the VAX-11 EDITPC instruction. 
These routines can be a part of an emulator package or can be 
called directly after the input parameters have been loaded into 
the architectural registers. 


The input parameters to these routines are the registers that 
contain the intermediate instruction state. 


; Environment: 


These routines run at any access mode, at any IPL, and are AST 
reentrant. 


Author: 

Lawrence J. Kenah 
; Creation Date 
20 September 1982 
; Modified by: 
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v01-008 LJK0035 Lawrence J. Kenah 16-Jul-1984 
Fix bugs in restart logic. 


we Ge Se Ge 


] 
| 
| 
| 
R6 cannot be used as both the qaceps ion dispatch register and 
a scratch vista in the main EDITPC routine. Use R7 as the 
scratch re | 

| 

| 

| 


Add code to Phe eb EDi TPC 1 vba routine to restore R7 as the 
address of the si qr yt¢ 

Clear e“ait in saved PSW in END gf LOAT | routine. 

Restore R9 (count of zeros) with CVTWE instruction. 


Preserve R and READ_2 routines. 
Preserve R7 in Fr OaT. 2 routine. 


v01-007 LJK0032 Lawrence J. Kenah 5-Jul=-1984 
Fix restart routine to take into account the fact that restart 
an are based at one when computing restart PC. Load STATE 
cell with nonzero restart code in ROPRAND_FAULT routine. 


V01-006 LJK0026 Lawrence J. Kenah 19-Mar-1984 
Final cleanup, especially in access violation mae hg Make 
But of the comments in exception handling accurately describe 
what the code is really doing. 


Fix erve Re. in READ of ei eae parameter. 
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0 

0 v01-005 LJK0018 Lawrence J. Kenah 23-Jan-1984 

0 Add restart logic for illegal pattern operator. Add access 

3 violation handling. 

0 v01-004 LJK0014 Lawrence J. Kenah 21-Nov-1983 

0 Clean up rest = exception handling. Remove reference 

0 to LIBSSIGNAL | 

0 v01-003 LJKO0012 Lawrence J. Kenah 8-Nov-1983 

0 Start out with Pg Te zero so that pattern streams 

3 that do not contain EOSADJUST_INPUT will work correctly. | 

0 v01-002 LJK0009 wrence J. Kenah 20-0c t-1983 

Add exception nettl ion. Fix bug in size of count field. | 

; V01-001 Original Lawrence J. Kenah 20-Sep-1982 
| 
| 
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. SUBTITLE Declarations 
; Include files 


VAXSEDITPC 
v04=600 


-NOCROSS 3; No cross reference for these 
«ENABLE SUPPRESSION ; No symbol table entries either 
EDITPC_DEF ; Define intermediaie instruction state 
PACK_DEF ; Stack offsets for exceptions 
SPSLDEF 3; Define bit fields in PSL 
DISABLE SUPPRESSION ; Turn on symbol table again 
- CROSS ; Cross reference is OK now 
3; Equated symbols 

00000020 BLANK = “A’' "' 

0000002D MINUS = “A‘'="' 

00000030 ZERO = “a‘'0"' 


3; Local macro definitions 
-MACRO EO_READ 
RESTART_POINT 
BSBW “EO_READ 
-ENDM EO_READ 
3; External declarations 
DISABLE GLOBAL 
~EXTERNAL - 
eek ion FAULT, - 
VAXSROPRA 
VAXSEDITPC ° OVERFLOW 
; PSECT Declarations: 
DEFAULT DISPLACEMENT , WORD 
-PSECT _VAX$CODE PIC, USR, CON, REL, LCL, SHR, EXE, RD, NOWRT, LONG 


BEGIN_MARK_POINT RESTART 
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- SUBTITLE VAXSEDITPC = Edit Packed to Character String 


VAXSEDITPC = VAX 
vou=600 VAXSE 


am 
LJ 
i— 
= 
ae 


Functional Description: 

The destination string pt Ni by the pattern and destination 

address operands is replaced by the editted version of the source 
string specified by the source length and source address operands. 
The editing is performed according to the pattern gtr ing Steretng at 
the address pattern and extending until a pattern end (EOSEND) pattern 
operator is encountered. The pattern string consists of one byte 
pattern operators. Some gy operators take no operands. Some 
take a repeat count which is contained in the rightmost nibble of the 
pattern operator itself. The rest take a one byte operand which 
follows the pattern operator immediately. This operand is either an 
unsigned integer cengt® or a byte character. The individual pattern 
operators are described on the following pages. 


Input Parameters: 


RO - srclen.rw Length of input packed decimal string 
Ri = srcaddr.ab Address of ve packed decimal string 
R3 = pattern.ab Address of table of editing pattern operators 
R5 = dstaddr.ab Address of output character string 
Intermediate State: 
31 23 15 07 00 
peewee er eee. sees pe coee certo coon ce powwow ooooooonoone Fewoooeoooooooone + 
: zero count H srclen t : RO 
' srcaddr i s RI 
$eweewewonowennn- pesos ce eee n erence powwow woowooooone powwow wwweooon- + 
| delta-srcaddr | delta-PC ' sign : fill i : R2 
pene eee eee seen nne $ ewe m www www www www pow e eww owe w www own pone eee ooeooee==+ 
: pattern + : R3 
$eowenoonooooonn oe $ewnwooonoonoenne powwow owoooeoen-- + 
: loop=count ! state H saved-PSW H inisrclen H : RS 
: dstaddr + : RS 
foe eee one $oeewoowoonnooone $ewooooooooonnnn- powwow wenmooenonne + 


Output Parameters: 
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Length of input decimal strin 
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SOOOCOOOCOOCSOOCSOSOSOOSOSOSOSOSOSOSOOSOSOSOOSOSOOOSOOOOOSOSOOSOOOOOOSOSSoOSO = 
COOCCOCOOCOOSOOOCOOSOCOCOOC OOOO OCO COSCO COO CO COCO COOOOCCOOOOCOOOOoooO 
De a A ss bd es a a ss) ts ts ss a a 2 5 5 ss ts 

OOO O09 0009 0909 09 09 09 09 09 SI NI NISSEN AAA AAAA A AMMUNITION EE ETO 


4 . Address of most significant byte of input decimal string 
+ - Address of byte containing EOSEND pattern operator 
RS - Address of one byte beyond destination character string 


; Condition Codes: 


N <= source string LSS 0 (src = -0 => N = 0) 
Z <= source sarone EQL 0 
y <~ decimal overfl 


n Ow (nonzero digits lost) 
<= significance 
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vareEpy rec - VAX-11 EDITPC Instruct 
v04- VAXSEDITPC = Edit Packed to Character St S$ EMULAT.SRCIJVAXEDITPC.MAR;1 
0 3 
§ 2 -ENABLE LOCAL_BLOCK 
§ ASSUME EDITPC_B_STATE EQ 18 ; Make sure we test the right FPD bit 
0200 = 311 p 8 2$: BRW VAXSEDITPC_RESTART ; Restart somewhere else 
O1EE 31 ; ; 19 5$: BRWw EDITPC_ROPRAND_ABORT ; Time to quit if illegal length 
006 1 VAXSEDITPC:: 
F654 14 €0 0006 1 BBS #<EDITPC_V_FPD+16>,R4,2$ ; Branch if this is a restart 
OFC3 HH BB pea 14 PUSHR #*M<RO,RT,R6,R7,RB,R9,R10,R11> =; Save lots of registers 
1F QO 861 E 15 CMPW RO,#31 ; Check for RO GTRU 31 
FO 1A 0011 18 BGTRU = : Signal ROPRAND if RO GTRU 31 
50 50 3c 0013 1 MOVZWL RO,RO ; Clear any junk from high-order word 
52 ¢3 9A 8518 18 MOVZBL #BLANK,R2 ; Set fill to BLANK, stored in R2 
9 D4 001 19 CLRL ; Start with ‘‘zero count’’ of zero 
0016 0 ESTABLISH_HANDLER EDITPC_ACCVIO 
5B OC 8 $3 1 MOVPSL R ; Get current PSL 
5B OB 8A 00 € ¢ BICB #<PSLS$M N!PSLSM_V!PSL$M_C>,R11 ; Clear N-, V-, and C-bits 
58 4204S a088 ; BISB #PSL$M_7,R11 ; Set 2-bit. 
0028 5 ; We need to determine the sign in the input decimal string to choose 
boSe § 3; the initial setting of the N-bit in the saved PSw. 
57 50 04 0QO1 #4=EF 0028 28 EXTZV #1,#4,R0,R7 ; Get byte offset to end of string 
57 51 ¢O 002Dd 9 ADOL R1,R7 ; Get address of byte containing sign 
0030 0 MARK _POINT EDITPC_1 , RESTART 
57 67 04 00 EF B39 4 EXTZ0 =#0,44,(R7),R7 3 Get sign ‘‘digit’’ into R7 
$038 3 CASE R7,LIMIT=#10,TYPE=B,<- ; Dispatch on sign 
0035 234 20$,- : 10 => + 
0033 536 208. bi oS 9 
0035 $39 10$.- : 13 => - 
0035 38 20$.- : 14 => + 
0035 39 20$,- 3: 15 => + 
a 
Opee 8 ; Sign is MINUS 
58 08 88 $048 44 10$: BISB #PSLSM_N,R11 ; Set N-bit in saved PSW 
54 2D) «9A «(0048 = 245 MOVZBL #MINUS7R4 : Set sign to MINUS, stored in R4 
03 re} rf) BRB TOP_OF _LOOP ; Join common code | 
Rep $8 3; Sign is PLUS (but initial content of sign register is BLANK) 
54 20 9A tt 29 20$: MOVZBL #BLANK,R4 ; Set sign to BLANK, stored in R4 
05 2g ; The architectural description of the EDITPC instruction uses an exit flag 
B2 : ; to determine whether to continue reading edit operators from the input | 
5 4 ; stream. This implementation does not use an explicit exit flag. Rather, all 
50 55 ; of the end processing is contained in the routine that handles the EOSEND 
é 3? 3 operator. 
5 3 3; The next several instructions are the main routine in this module. Each 
5 59 ; pattern is used to dispatch to a pattern-specific routine that performs 
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3 60 ; its designated action. These routines (except for EOSEND) return control 
2 6) ; to TOP_OF_LOOP to allow the next pattern operator to be processed. 
5 34 TOP_OF_LOOP: 
FD AF OF 82 rf PUSHAB B*TOP_OF_LOOP ; Store ‘'return PC" 
05 96 ; The following instructions pick up the next byte in the pattern stream and 
05 67 ; dispatch to a pattern specific subroutine that per feras the designated 
Bpe 68 ; action. Control is passed back to the main EDITPC loop by the RS 
Boe 34 3; instructions located in each pattern-specific subroutine. 
05 71 ; Note that the seeningly infinite loop actually terminates when the EOSEND 
05 ie 3 pattern operator is detected. That routine insures that we do not return 
32 i ; to this loop but rather to the caller of VAXSEDITPC. 
005 75 MARK_POINT EDITPC_2 , RESTART 
005 76 CASE”  (R3)+,LIMiT=#0>TYPE=B,<- 
005 77 EOSEND_ROUTINE,- : 00 - EOSEND 
005 78 EOSEND-FLOAT_ROU - : 01 = EOSEND_FLOAT 
005 79 EOSCLEAR_SIGNIF_ROUTINE,- : 02 - EOSCLEAR SIGNIF 
005 80 EOSSET SIGNIF_ROUTINE,- ; 03 - EOSSET_SIGNIF 
005 81 EOSSTORE_SIGN_ROUTINE,- 3; 04 - EOSSTORE_SIGN 
005 a > 
0061 8 
0061 84 MARK_POINT EDITPC_3 
0061 85 - ), LIMIT=#"X40, TYPE=B,<- 
0061 286 O$LOAD_FILL_ROUTINE,- : 40 = EOSLOAD_FILL 
0061 287 EOSLOAD~SIGN-ROUTINE,- : 41 = EOSLOAD“SIGN 
Boe) 88 EOSLOAD_PLUS_ROUTINE,- : 2g = EOSLOAD_PLUS 
0061 89 EOSLOAD MINUS _ROUTINE,- : 435 - EOSLOAD_ MINUS 
0061 90 EOSINSERT_ROUTINE,- : 44 = EOSINSERT 
0061 391 OSBLANK_ZERO_ROUTINE,- : 45 = EOSBLANK_ZERO 
0061 8 EOSREPLATE SIGN_RO TINE,- : 46 = EOSREPLACE SIGN 
0061 9 OSADJUST_INPUT_ROUTINE,- : 47 = EOSADJUST_INPUT 
0061 94 > 
0077 95 
0077 296 MARK_POINT EDITPC_4 
FF AS OF 93 0077 97 BITB #°B1111,-1(R3) ; Check for 80, 90, or AO 
10 13 0078 98 BEQL 30$ 3; Reserved operand on repeat of zero 
007D A MARK_POINT +4 es 5 
57 FF AS 04 04 EF pore 4 EXTZ0 #4,84,-1(R3),R7 :; Ignore repeat count in dispatch 
00 8 CASE R7,LIMIT=#8, TYPE=B,<- 
99 EO$FILL_ROUTINE,- : 81 to 8F - EOSFILL 
4 EOSMOVE ROUTINE,- : 91 to 9F = EOSMOVE 
one 05 EOSFLOAT_ROUTINE ,~ : Al to AF = EOSFLOAT 
0080 07 
Bp D 08 ; If we drop through all three CASE instructions, the pattern operator is 
08D 09 ; unimplemented or reserved. R3 is backed up to point to the illegal 
3 : 19 3 pattern operator and a reserved operand FAULT is signalled. 
53 07 D \¢ 30$: DECL R3 : Point R3 to iUlegat operator 
5E 04 60 F 1 ADDL #4 SP ; Discard return P y 
O11E 1 38 \% BRW EDI TPC_ROPRAND_FAULT : Initiate exception processing 
9 16 .DISABLE LOCAL BLOCK 


G-SEP~1984 01:35:22 VAX/VMS Macro v04-00 Page 4 


] 

G 8 | 

VAXSEDITPC = VAX-11 EDITPC Instruction Emulation 16-SEP-1984 01:35: AX/VMS Macro V04-00 Page 7 | 
Miva di Description of Pattern-Specific Routines mets 7 Oh: 28:46 YEMULAT. SREIVAXEDITPC.MAR: 1 . 


» SUBTITLE Description of Pattern-Specific Routines 
: Functional Description: 
There is a separate action routine for each pattern operator. These 
routines are entered with specific register contents and several 
scratch registers at their oepeeehs hey perform their designated 
action and return to the main VAXSEDITPC routine. 
There are several words used in the architectural description of this 
instruction that are carried over into comments in this module. These 
words are briefly mentioned here. 
char Character in byte following porters operator (used 4 
EOSLOAD_FILL, EOSLOAD_SIGN, EOSLOAD_PLUS, EOSLOAD_MINUS, 
and EOSINSERT) 


length Length in byte following pattern operator (used 24 
EOSBLANK_ZERO, EOSREPLACE_SIGN, and EOSADJUST_INPUT) 


repeat Rogest count in bits <3:0> of earners operator (used by 
EOSFILL, EOSMOVE, and EOSFLOAT 


The architecture makes use of two character registers, described 

as appearing in different bytes of R2. For simplicity, we use an 
additional register. 

fill Stored in R2<7:0> 

sign Stored in R4<7:0> 

Finally, the architecture describes two subroutines, one that obtains 
the next digit from the input string and the other that stores a 
character in the output string. 

READ Subroutine EO_READ provides this functionality 

STORE A single instruction of the form 


MOVB xxx, (R5)+ 
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or 
5 
2 ADDB3 #ZERO,R7,(R5)+ 
bee stores a single character and advances the pointer. 
bee ; Input Parameters: 
095 6 RO = Updated Length of input decimal string 
95 68 R1 - Address of next byte of input decimal string 
32 4 R2 - Fill character 
9 0 R35 - Address of one byte beyond current pattern operator 
9 71 R4 = Sign character ‘ 
H R5 - Address of next character to be stored in output character string 
095 74 ; Implicit Input: 


vasssr 
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Description of Pattern-Specific Routines 


from one action routine to the next. 


Side Effects: 


- Output parameter of EO_RE routin 


Output Parameters: 


specific output parameters. 
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" - Scratch register used onty PY access violation handler 
e 
R8 - Scratch register used By pattern-specific routines 
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Several registers are used to contain intermediate state, passed 


R7 = Contains latest digit from input stream (output from EO_READ) 
R8 = Used as loop counter 

R9 = Contains the value described in the architecture as R0<31:16> 
R11 = Pseudo-PSW that contains the saved condition codes 


The remaining registers are used as scratch by the action routines. 


The actual output depends on the pattern operator that is currently 
executing. The routine headers for each routine will describe the 
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399 7 . SUBTITLE Utility Subroutine (READ Next Digit) 


Functional Description: 


This routine reads the next digit from the input packed decimal 
string and passes it back to the caller. 


; Input Parameters: 


RO = Updated Length of input decimal string 
Ri = Address of next byte of input decimal string 
R9 = Count of extra zeros (see EOSADJUST_INPUT) 


(SP) = Return address to caller of this routine 


Note that R9<15:0> contains the data described by the architecture as 
appearing in RO<31:16>. In the event of an restartable exception 
(access violation or reserved operand fault due to an Li cgget pattern 
operator), the contents of R9<15:0> will be stored in RO<31:16>. I 
order for the instruction to be restarted, the ‘zero count'’ (the 
contents of R9) must be preserved. While any available field will do 
in the event of an access violation, the use of RO<31:16> is clearly 
specified for a reserved operand fault. 


; Output Parameters: 

The behavior of this routine depends on the contents of R9 
R9 is zero on input 

Updated by one 

Updated by one if RO<0> is clear on input 

Next decimal digit in input string 

Unchanged 

PSW<Z> is set if the digit is zero, clear otherwise 


R9 is nonzero (LSS 0) on input 
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RO = Unchanged 
R1 = Unchanged 
R7 - Zero 
R9 = Incremented by one (toward zero) 
3 PSW<Z> is set 
9 
9 EO_READ: 
59 05 9 TSTL Re : Check for ‘RO’ LSS 0 
13 Is 9 BNEQ 208 ; Special code if nonzero 
50 0D 9 DECL RO : Insure that digits still remain 
14 19 98 BLSS 30$ ; Reserved operand if none 
0650 €9 BLBC RO,10$ 3; Next code path is flip flop 


; RO was even on input (and is now odd), indicating that we want the low 
3; order nibble in the input stream. The input pointer R1 must be advanced 
3; to point to the next byte. 
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A 4 
A a3 MARK _POINT READ_1 
57 81 04 00 FE A 4 8 EXTZQ #0,44,(R1)+,R7 ; Load low order nibble into R7 
5 “ cep RSB 3; Return with information in Z-bit 
Ag és ; RO was odd on input (and is now even), se that we want the high 
A 462 ; order nibble in the input stream. The next pass through this routine will 
ne rhe 3; pick up the low order nibble of the same input byte. 
A 465 MARK_POINT READ _2 
57 61 04 04 + OA $68 10$: EXTZ0 «-#4,84,(R1),R7 ; Load high order nibble into R7 
5 rd rh RSB ; Return with information in Z-bit 
AC 48s ; RY was nonzero on input, indicating that zeros should replace the original 
~ rt ; input digits. 
59 06 AC t76 208: INCL Rg 3; Advance R9 toward zero 
57 4 ae 47 CLRL R7 ; Behave as if we read a zero digit 
05 pay oh RSB 3; Return with Z-bit set 
081 $76 3; The input ote string ran out of digits before its time. The architecture 
0B1 477 ; dictates that R35 points to the pattern operator that requested the input 
081 $78 3; digit and RO contains a -1 when the reserved operand abort is reported. 
0B1 479; is not necessary to load RO here. RO already contains -1 because it just 
ape! ? ? ; turned negative. 
53 od7 00B1 4 ¢ 30$: DECL R3 ; Back up R3 to current pattern operator 
5E 08 0 0083 «4 ADDL #8,SP ; Discard two return PCs 
0138 1 00B6 484 BRW EDI TPC_ROPRAND_ABORT ; Branch aid for reserved operand abort 
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. SUBTITLE EOSINSERT = Insert Character 
Functional Description: 


insert a fixed character, substituting the fill character if 
not significant. 


; Input Parameters: 

: R2 = Fill character 

3 R35 = Address of character to be inserted if significance is set 

3 R5 = Address of next character to be stored in output character string 
: R11<C> = Current setting of significance 

: Output Parameters: 


Character in pattern stream (or fill character if no significance) 
is stored in the the output string. 


R3 = Advanced beyond character in pattern stream 
R5 = Advanced one byte as a result of the STORE operation 


EOSINSERT ROUTINE: 


BBC #PSL$V_C,R11,10$ 3 Skip next if no significance 
MARK_POINT NSERT_1 
nove (R3)+,(R5)+ ; STORE ‘'ch'’ in output string 


MARK _POINT INSERT_2 
10$: MOVB pee thre? 3 STORE fill character 
pet R 3; Skip over unused character 
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vOue800 EO STORE. S16N = Store Sign $7865 138 84; 2: %§ YEMULAT. SR SRE aVAX XEDITPC.MAR;1 ° (3) 
oes 9 F . SUBTITLE EOSSTORE_SIGN = Store Sign 
cy é : Functional Description: 
34 : 3 The contents of the sign register are placed into the output string. 
cf : : Input Parameters: 
0C7 8; R4 = Sign character 
4 4 3 R5 = Address of next character to be stored in output character string 
aoe? 1 ; Output Parameters: 
bee $ : Sign character is stored in the the output string. 
3 i : R5 - Advanced one byte as a result of the STORE operation 
0c” ‘ 
00C7 é 8 EOSSTORE_SIGN_ROUTINE: 
00C7 9 MARK _POINT STORE_SiGN_1 
85 54 90 O00C7 540 MOV 8° R4,(R5)+ 3; STOVE sign character 
05 OOCA 541 RSB 


VAXSEDITPC = VAX-11 EDITPC 
VOne 000 EOSFILL = Store 
cB 43 

cB 44 

cB 45 
cB 6 

8 4 
cB rt: 

cB 4 
cB 50 

cB 51 
cB 26 

Bie 

be 2¢ 
0cB 2$ 

bre 5 
cB 38 

0cB 5 
0cB 560 

8 cB 61 
cB 66 

cB 6 

OCB 64 

0CcB 65 
58 FF A3 04 O00 EF O0CB 66 
0D1 67 
85 35 90 00D1 568 
FA 5 F5 00D4 233 
05 0007 70 
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ey 7 84:28:98 
EOSFILL = Store Fill 
Functional Description: 


I 
F 
- SUBTITLE 


The contents of the fill register are placed into the output string 
a total of ‘‘repeat’’ times. 


Input Parameters: 

; Re = hake character 

3 © ess of next character to be stored in output character string 

3 -1(R3)<3:0> - Repeat count is stored in right nibble of pattern operator 
3 Output Parameters: 

3 Fill character is stored in the output string ‘'repeat'’ times 

; RS = Advanced ‘‘repeat’’ bytes as a result of the STORE operations 


EOSFILL_ROUTINE: 
MARK_POINT Fag t 
EXTZ0 #0,44,-1(R3)7R8 3; Get repeat count from pattern operator 
MARK_POINT FILL_2 , RESTART 


10$: OVB™ R2,(R5)+ 


M 3; STORE fill character 
os a R8,10$ 


; Test for end of loop 


VA) 
v0é 


} 
See 
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EOSMOVE = Move Digits 


+ 
; Functional Description: 


The right nibble of the pattern operator is the repeat count. 


repeat times, the following algorithm is executed. 
from the source to the destination. If the digit is non-zero, 


The next digit is 


is cleared. If the digit is not 


significant (i.e., is a leading zero) it is replaced by the contents 


of the fill register in the destination. 


oco9g 


; Get repeat count 


oowm 


Get next input digit 

Is it zero? Branch if yes 
Indicate significance 
Also indicate nonzero 


T 
: STORE digit in output stream 


; Test for end of loop 


#PSL$V_C,R11,20$ 
MOVE_3 , RESTART 


: If significance, then STORE digit 


; Otherwise, STORE fill character 
; Test for end of loop 
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M ’ 
SOBGTR R8,10$ 
RSB 
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- SUBTITLE EOSFLOAT = Float Sign 
; Functional Description: 
The right arene 4 “> Pe pass wt atgorith is the repeat count. for 


-11 TPC 
OAT loa 
He $88 | 
Fe i ; | 
FC $09 ; 
OOFC 610 ; repeat times, Llowing algorithm is executed. The next digit | 
pore 611 ; from the source HA gs If is non-zero and significance is 
OFC oi¢ 3 not yet set, then the contents af the sign register is stored in se | 
OOFC 613; gest ihetion. significance is set, and zero is cleared. If the digi 
OOFC 614 ; is si gnif icant, it is stored in the destination, otherwise Re 
Sore ei? 3 contents of the filt register is stored in the destination. | 
bor E 819 
OOFC 918 EOSFLOAT veg E 
OOFC 61 MARK POINT FLOAT_1 
58 FF A3 04 OO EF Bors ° 9 EXTIO #0,#4,-1(R3) ,RB ; Get repeat count 
0102 6 ¢ 10$: EO_READ 3; Get next input digit 
0B 5B 00 €0 010 6 BBs #PSL$V_C,R11,20$ ; Is significance set? Branch if yes. 
11 13 0109 624 BEQL s digit zero? Branch if yes. 
010B 625 MARK_POINT FLOAT_2 , RESTART 
85 54 90 0108 626 MOVB R4,(R5)+ ; STORE sign. 
5B 01 88 O10E 627 BISB = #PSL$M_C,R11 ; Indicate significance 
5B 04 BA aii ? 8 BICB #PSL$M_Z, *R11 ; Also indicate nonzero 
0114 $0 MARK_POINT FLOAT_3 , RESTART 
85 57 30 81 0114 631 20$: ADDB3) = #ZERO,R7,(R5)F : STORE digit in output stream 
€7 58 F5 0118 632 SOBGTR R8,10$ : Test for end of loop 
05 0118 63 RSB 
011C 634 
011C 635 30$: MARK_POINT FLOAT_4 , RESTART 
85 52 90 O11C 636 MOVB R2,(R5)+ ; Otherwise, STORE fill character 
€0 58 FS O1F 637 SOBGTR R8,10$ ; Test for end of loop 
05 0122 638 RSB 
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| 
| 
Functional Description: 
If nes floating sign has not yet been placed into the destination 
string (that is, if significance is not yet set), then the contents 
9 reed sign register are stored in the output string and significance | 
s set. | 


: Input Parameters: 

: R4 = Sign character 
3 R5 = Address of next character to be stored in output character string 
; R11<C> = Current setting of significance 

: Output Parameters: | 


Sign character is optionally stored in the output string (if 
significance was not yet set). 


R5 - ert ones te yevenced one byte as a result of the STORE operation 


Lt 
R11<C> = (Significance) is unconditionally SET 


EOSEND_FLOAT_ROUTINE: 
BBSS 


folelelelelelelelelelelelelelelelelel el ele el ala ele) aa) =) 
ee ee ee ee eed ed od od od 8 od dd od Sd 3 3 2) 3 t — 
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03 5B 00 €2 6 #PSL$V_C,R11,10$ ; Test and set significance 
6 MARK_POINT END_FLOAT_1 : 
85 54 90 6 MOVB R4,(R5)+ : STORE sign character 
05 68 10$: RSB 


} 
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Vv04- EOSBLANK_ZERO = Blank Backwards When Zer 5-SEP=1984 00:45:1 EMULAT.SRCJVAXEDITPC.MAR; 1 (12) 
} : 679 ; « SUBTITLE EOSBLANK_ZERO = Blank Backwards When Zero 
3 676 ; Functional Description: 
12B 486674 : The pattern operator is followed by an unsigned byte integer length. 
12B «0675 ; If the value of the source string is zero, then the contents of the 
128 of8 3 fill register are stored into the Last Length bytes of the destination 
: 4 67 ; string. | 
8 4 : Input Parameters: | 
128 esi : Rg - Fill character 
128 6 ¢ : R35 = Address of ‘‘lLength'’, number of characters to blank 
0128 683; R5 = Address of next character to be stored in output character string 
4 : eee : R11<Z> = Set if input string is zero 
4 : o86 : Output Parameters: 
0128 688 ; Contents of fill register are stored in Last ‘‘length’’ characters 
4 : O88 3 of output string if input string is zero. 
61 B 691 : R3 - Advanced one byte over ‘‘length'’ 
4 ; 8 : RS = Unchanged 
3 : eee > Side Effects: 
0128 696 ; R8 is destroyed 
O158 608 | 
b1S6 99 EOSBLANK_ZERO_ROUTINE: 
oi B 700 MARK POINT BLANK_ZERO_1 
9A 0128 701 MOVZBL (R3)+,R8 ; Get length ay 
E1 01 re BBC #PSL$V_Z,R11,20$ ; Skip rest if source string is zero 
C2 01 : 70 SUBL R8,R ; Back up destination pointer 
ot 704 MARK_POINT BLANK_ZERO_2 , RESTART 
90 0135 705 10$: MOVB R2,(R5)+ ; STORE fill character 
F5 0138 706 SOBGTR R8,10$ 3; Check for end of loop 
05 0138 707 208: RSB 
| 
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_ - SUBTITLE EOSREPLACE_SIGN = Replace Sign When Zero | 
Functional Description: 


VAXSEDITPC = VAX 
V04=600 EOsRE 


If the value of the source string is zero, then the contents of the | 
fill register are stored into the byte of the destination string | 
that is ‘‘length"’ bytes before the current position. 

Input Parameters: 

R2 = Fill character 

R3 = Address of ‘“‘length’’, number of characters to blank 

R5 = Address of next character to be stored in output character string 
R11<Z2> = Set if input string is zero 

Output Parameters: 


Contents of fill register are stored in byte of output string 
“Length’’ bytes before current position if input string is zero. 


R3 = Advanced one byte over ‘‘length'’ 


R5 = Unchanged 
Side Effects: 
R8 is destroyed 
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EOSREPLACE_SIGN 

MARK_POINT REPLACE_SIGN_1 

58 83 9A MOVZBL (R3)+,R8 ; Get length 

07 58 O02 €1 BBC #PSL$V_Z,R11,10$ ; Skip rest if source string is zero 
oe ee ees SUBL3. R8,R5,R8 ; Get address of indicated byte 

MARK _POINT REPLACE_SIGN_2 

68 52 90 MOVB R2, (RB) ; STORE fill character 

05 10$: RSB 


ROUTINE : 
| 
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OAD _xxxxxx = Load Register “SEP-19 EMULAT.SRCJVAXEDITPC.MAR; 1 (14) 
be i = . SUBTITLE EOSLOAD_xxxxxx = Load Register 


Functional Description: 


The contents of the fill or Hm register are repseees with the 
character that follows the pattern operator in the pattern stream. 


EOSLOAD_FILL Load Fill Register 
EOSLOAD_SIGN Load Sign Register 
EOSLOAD_PLUS Load Sign Register If Source String Is Positive (or Zero) 
EOSLOAD_MINUS Load Sign Register If Source String Is Negative 
Input Parameters: 


R3 - Address of character to be loaded 
R11<N> = Set if input string is LSS zero (negative) 


Output Parameters: 


If entry is at EOSLOAD_FILL, the fill register contents (R2<7:0>) are 
replaced with the next character in the pattern stream. 


If one of the other entry peters is used (and the appropriate conditions 
obtain), the contents of the sign register are replaced with the next 
character in the pattern stream. For simplicity of implementation, the 
sign character is stored in R4<7:0> while this routine executes. 


In the event of an exception, the contents of R4<7:0> will be stored 
in R2<15:8>, either to conform to the architectural specification of 
register contents in the event of a reserved operand fault, or to 

a} ~ instruction to be restarted in the event of an access 
violation. 


R3 - Advanced one byte over new fill or sign character 


COSLOAG, FILL BOVTINe: 
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ARK_POINT LOAD_xxxx_1 
52 83 90 MOVB (R3)+,R2 ; Load new fill character 
05 RSB 
790 EOSLOAD_SIGN_ROUTINE: 
791 MARK_POINT LOAD_xxxx_2 
54 83 90 79 MOVB (R3)+,R4 ; Load new sign character into R4 
05 as RSB 
795 EOSLOAD_PLUS_ROUTINE : 
F8 5B O03 €1 £36 BBC #PSLSV_N,R11,E0SLOAD_SIGN_ROUTINE ; Use common code if plus 
53 6 79 INCL R3 ; Otherwise, skip unused character 
0 oe RSB 
Q EOSLOAD_MINUS_ROUTINE: 
Fl 58 9 EO 1 BBS #PSL$V_N,R11,EOSLOAD_SIGN_ROUTINE ; Use common code if minus 
D6 2 INCL R3 ; Otherwise, skip unused character 
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05 0160 803 RSB 
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gnificance -SEP=1 EMULAT.SRCJVAXEDITPC.MAR; 1 5) 
i - SUBTITLE EOSxxxxxx_SIGNIF = Significance 

; Functional Description: 


The significance indicator (C-bit in auxiliary PSW) is set or 
cleared according to the entry point. 


t 
S 


a- 
2uv 
nn 


; Input Parameters: 
None 
; Output Parameters: 


a ed dd od od od dd 
PDAEAAAAAAAAAAAAAAAAAAAA AAO 
COU BS at tt ot tt 
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EOSCLEAR_SIGNIF R11<C> is cleared 
EOSSET_SIGNIF R11<C> is set 
OSCLEAR_SIGNIF ROUTINE: 
58 01 8A BICB2 “#PSL$M_C,R11 3 Clear significance 
05 RSB 
0 EOSSET_SIGNIF ROUTINE: 
5B (01 t 3 B1sBe" #PSL$M_C,R11 ; Set significance 
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. SUBTITLE EO_ADJUST_INPUT = Adjust Input Length 


VAXSEDITPC 
vo4=600 


; Functional Description: 


3 The pattern pereter is followed by an unsigned byte integer length in 
: the range hrough 31. If the source string has more digits than 
; this +1 gy the excess leading digits ore (eed, and discarded: If any 
3 discarde are non-zero then overflow is set, significance is 

; set, 7 zero Sy cleared. If the source string has fewer q'g"ts than 

3 this Length. a counter is set of the number of leadi 99 ereee to 

: sc 


supply. ounter is stored as a negative number in RO<3 


EOSADJUST_INPUT ROUTINE: 
MAR 


DOONAN WI SO OD NIA UNE WP OOWONOUE WO 


K POINT ADJUST_INPUT_1 Z : 

mov ZBL (R3)+,R8 : Get ae from pattern stream 

SUBL R8,RO,RB : Is Longe corgee than input length? 

BLEQU 308 ; Branch if yes 

LRL RO ; Clear count of zeros (''RO<31:16>°") 
10$: EO_READ ; Get next input digit 

BEGL 0$ : Skip to end of loop if zero 

BICB hg ; Otherwise, indicate nonzero 

B1SB WPS aR 2 eR OSLSM. V>,R11 ; Indicate significance and overflow 
20S: SOBGTR ; Test for end of loop 

RSB 
30$: mont R8B,RI 3; Store difference into ‘'RO<31:16>" 
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~SEP=1984 
» SUBTITLE EOSEND - End Edit 


EMULAT.SRCJVAXEDITPC MAR; 1 7) 


Functional Description: 


The edit operation is terminated. 

The architectural description of EDITPC divides end processing between 
the EOSEND routine and code at the end of the main loop. This 
implementation performs all of the work in a single place. 


The edit operation is terminated. There are several details that this 
routine must take care of. 


1. The return PC to the main dispatch loop is discarded. 
2. R3 is backed up to point to the EOSEND pattern operator. 


3. A special check must be made for negative zero to insure that 
the N-bit is cleared. 


4. If any yh dee: still remain in the input string, a reserved 
operand abort is taken. 


5. R2 and R4 are set to zero according to the architecture. 
Parameters: 


RO - Number of digits remaining in input string 
R3 - Address of one byte beyond the EOSEND operator 


Fears aearems in dispatch loop in this module (discarded) 
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Return PC to caller of VAXSEDITPC 


Output Parameters: 
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f no overflow has occurred, then this routine exits through the RSB 
nstruction with the following output parameters: 


These register contents are dictated by the VAX architecture 


RO - Length in digits ef input decimal string 
R1 = Address of most s oars leans byte of input decimal string 
Set to zero to conform to archite 


scure 
Backed up one byte to point to EOSEND operator 


R 
R4 - Set to zero to conform to architecture 
RS - Address of one byte beyond destination character string 


PSL<V> is clear 


VAXSEDITPC = VAX-11 EDIT 
vo4=600 
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If the V-bit is set, then control is Breng terres to VAXSEDITPC_OVERFLOW 
where a check for decimal overflow exceptions is made. 


The registers are loaded with their correct contents and then saved on 
the stack as follows: 


PC 
Ed 
187 18; 
187 19; 
187 : 
187 13 
187 958 : 
187 924; O(SP) = Saved RO 
187 925; 4(SP) = Saved R1 
187 § 3 S530) - Saved Re 
187 3 12(SP) = Saved R 
187 8 : 16(SP) = Saved R4 
187 4 3 O(SP) = Saved R5 
187 03 4(SP) = Saved Rg 
0187 931; theds - Saved R 
187 9 § 3 (SP) = Saved R8 
187 933; 6(SP) = Saved RY 
187 934; 40(SP) = Saved R10 
187 935; 44(SP) = Saved R11 
B18 4 § : 48(SP) = Return PC to caller of VAXSEDITPC 
8157 $36 3 PSL<V> is set 
O18? | 940 
0187 941 EOSEND_ROUTINE: 
SE 04 CO 0187 ae$ ADDL #4,SP ; Discard return PC to main Loop 
53 07 BISA 94 DECL R3 ; Back up pattern pointer one byte 
03 5B 02 €1 O18C 944 BBC #PSL$V_Z,R11,10$ 3; Check for negative zero 
5B O08 8A Bi38 945 BICB #PSLSM_N,R11 3; Turn off N-bit if zero 
50 05 019 946 108: TSTL R 3 Any digits remaining? 
5D N2 0195 947 BNEQ EDITPC_ROPRAND_ABORT =; Error if yes 
59 ~~ 3132 948 TSTL ; Any zeros (R0<31:16>) remaining? 
59 12 0199 949 BNEQ EDI TPC_ROPRAND_ABORT 3; Error if yes 
52.4 3138 950 CLRL Re ; Architecture specifies that R2 
54 D4 019D 951 CLRL R4 ; _and R4 are zero on exit 
OF B9 O19F 828 BICPSW #<PSLSM_N!PSL$M_Z!PSLSM_V!PSLSM_C> ; Clear condition codes 
58 B68 O1A1 95 BISPSW R ; Set codes according to saved PSW 
05 5B 01 «£0 BIAS 954 BBS #PSL$V_V,R11,20$8 : Get out of Line if overflow 
OFC3 8F BA OIA 955 POPR #°M<ROTRI,R6,R7,R8,R9.RIO,R11> ; Restore saved registers 
05 nae 329 RSB ; Return to caller's caller 
O1ag 958 ; At this point, we must determine whether the DV bit is set. The tests that 
BiAe 959 ; must be performed are identical to the tests performed | the overflow 
1AC «©9600 ; checking code for the packed decimal routines. In order to make use of 
1AC §=6. 961: 5:« that code, we need to get up the saved registers on the stack to match 
1AC 3c8 3; the input to that routine. Note also that the decimal routines spec fy 
1AC 3=—&.: 96S. g-_:« that RO is zero on completion while EDITPC dictates that RO contains the 
1AC }§=—6. 964 g-_:«s initial value of ‘’srclen’’. For this reason, we cannot simply branch to 
ey: +e 3 VAXSDECIMAL_EXIT but must use a special entry point. 
93 BA OQ1AC 303 208: POPR one Gti ; Restore RO and R1 
F 186 96 PUSHR #*M<RO,R1,R2,R3,R4,R5> |; ... only to save them again 
18 $70 ; The condition codes were not changed by the previous two instructions. 
FE4D" 31 180 972 BRw VAXSEDITPC_OVERFLOW 3; Join exit code 
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; » SUBTITLE EDITPC_ROPRAND_FAULT = Handle Illegal Pattern Operator 
: Functional Description: 


This routine stores the intermediate state of an EDITPC instruction 
that has been prematurely terminated by ar illegal pattern operator. 
These exceptions and access violations are the only exceptions from 
which execution can continue after the except renee condition has been 
cleared up. After the state is stored in the registers RO through R5, 
control is Froneforred through VAX$ROPRAND to VAXSREFLECT_FAULT, where 
the apereer 3 
e 


sed te backup method is determined, based on the return PC 
rom 


AXSEDITPC routine. 
Input Parameters: 


- Current digit count in input 7 
- Address of next digit in input string 
- Fill character 
- Address of Hg oy: pattern gperagor 
R4 = Sign character (stored in R2<15:8>) 
- Address of next character _to be stored in output character string 
- Zero count (stored in RO<31:16>) 
= Condition codes 


- Saved RO 
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R11 
Return PC from VAXSEDITPC routine 
Output Parameters: 


OO(SP) - Offset in packed register array to delta PC byte 
O04(SP) = Return PC from VAXSEDITPC routine 


Some of the register contents are dictated by the VAX architecture. 
Other rogieter contents are architecturally described as ‘‘implementation 
dependent’ and are used to store the instruction state that enables it 
to be restarted successfully and complete according to specifications. 


The following register contents are architecturally specified 


RO<15:00> - Current digit count in inpye string 

RO<31:16> - Current zero count (from R9) 

R1 - Address of next digit in input string 

R £92: 00> - Fill character 

R2<15:08> = Sign character (from R4) 

fi - Address of next pattern operator 

R - Address of next character in output character string 


The following register contents are peculiar to this implementation 
R2<23:16> - Delta-PC (if initiated by exception) 
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183 1031 ; R2<31:24> = Delta srcaddr (current srcaddr minus initial srcaddr) 
183 1 § 3 RécO7 600 - ve ttdal ovgit count (from saved 
183 1 : R4<15:08> = Saved condition codes (for easy retrieval) 
1B3 1034 ; R4<235:16> = State flags 
1B3 1035 ; State = GDI TPC 2 RESTART 
1B3 1 § ; FPD bit is set 
183 1 ; ACCVIO bit is clear 
18 } 8 ; R4<31:24> = Unused for this exception (see access violations) 
183 1040 ; EDITPC_2_RESTART is the restart code that causes the instruction 
183 1041 ; to be restarted at the top of the main loop. It is the simplest 
183 1 4 3 point at which to resume execution after an illegal pattern 
is ! rf ; operator fault. 
$1 1045 : The condition codes reported in the exception PSL are also defined 
gi8 : rf 3 by the VAX architecture. 
ae 1048 : PSL<N> = Source string has a minus sign 
1B3 1049 ; PSL<Z> = ALL digits are zero so far 
01B3 1050 ; PSL<V> = Nonzero digits have been lost 
nie 1051 ; PSL<C> = Significance 
b1es 1088 * 
018 1054 ASSUME EDITPC_L_SAVED_R1 EQ <EDITPC_L_SAVED_RO + 4> 
ois 1056 EDITPC_ROPRAND_FAULT: 
OF BB 0183 1057 PUSHR ~ #*M<RO,R1,R2,R3> : Save current RO..R3 
50 10 AE 7D 0185 1058 MOVQ EDITPC_L SAVED_RO(SP) .RO ; Retrieve original RO and R1 
10 AE 54 7D Ay 2 + 594 MOVQ R4,16(SPY : Save R4 and RS in right place on s 
pee 198) : Now start stuffing the various registers 
02 AE 59 BO 01BD 1088 MOVW R9,EDITPC_W_ZERO_COUNT(SP) ; Save R9 in RO<31:16> 
09 AE 54 90 OQ1C1 1064 MOVB R4,EDITPC_B_SIGNTSP) : Save R4 in R2<15:8> 
10 AE 50 90 O1C5 1982 MOVB RO,EDITPC_B_INISRCLEN(SP) ; Save initial value of RO 
51 O46 AE 51 C3 O1C9 1066 SUBL3 =R1,EDITPC_A_SRCADDR(SP) ,R1 ; Calculate srcaddr difference 
OB AE 51 90 Hts 1067 MOVB R1,EDITPC_B DELTA_SRCADDR(SP) =; Store it in R4<15:8> 
11 AE 58 90 01D2 1068 MOVB R11, EDITPC_B SAVED PSw(SP) : Save condition codes 
12 90 0106 1069 MOVB #<EDITPC_M“FPD!EDITPC_2_RESTART>,- 
12 AE Hts Vee EDITPC_B_STATE(SP) 3; Set the FPD bit 
OFFF 8F BA O1DA 1928 POPR #*M<RO,R1,R2.R3,R4,R5,R6,R7,R8,R9,R10,R11> ; Load registers 
0000010A 8F DD O1DE 107 PUSHL 4#<EDITPC_B DELTA_PC!=  ; Store delta-PC offset 
9 1 if PACK_M_FPDS 3 Indicate that FPD should be set 
164 1 A 3; The following is adalttedty grees. This is the only code path into 
1E4 1077 ; VAXSROPRAND where the condition codes are significant. All other paths can 
1E4 O78 3; store the delta-PC offset without concern for its affect on condition 
ie 4 3 codes. Fortunately, the POPR instruction does not affect condition codes. 
ie? ! 1 ASSUME EDITPC_B_SAVED_PSW EQ 17 ; Make sure we get them from right place 
50 DD QO1E4 1 : PUSHL R ; Get a scratch register 
50 54 064 8 EF O1E6 1084 EXTZV #8,44,R4,R0 ; Get codes from R4<11:8> 
F B69 QO1EB 1085 BICPSW #<PSLEM_N'PSLSM_Z!PSLSM_V!PSLSM_C> ; Clear the codes 
0 68 QED 1} $ BISPSW RO ; Set relevant condition codes 
01 BA OEF 108 POPR #*M<RO> ; Restore RO, preserving PSW 
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ORT - Abnormally Termin 5-SEP-19 EMULAT.SRCJVAXEDITPC.MAR; 1 

- SUBTITLE EDITPC_ROPRAND_ABORT = Abnormally Terminate Instruction 
“Functional Description: 

This routine reports a reserved operand abort back to the caller. 


Reserved operand aborts are trivial to handle because they cannot be 
continued. There is_ no need to pack intermediate state into the 
generat registers. Those registers that should not be modified by the 
DITPC instruction have cheir contents restored. Control is then 
passed to VAXSROPRAND, which takes the necessary steps to eventually 
reflect the exception back to the caller. 


The following conditions cause a reserved operand abort 


Vs inpyt digit count GTRU 31 J 
(This condition is detected by the EDITPC initialization code.) 


2. Not enough digits in source string to satisfy pattern operators 
(This condition is detected by the EO_READ routine.) 


3. Too many digits in source atring (digits left over) 
(This condition is detected by the EOSEND routine.) 


4. An EOSEND operator was encountered while zero count was nonzero 
(This condition is also detected by the EOSEND routine.) 


Input Parameters: 


Saved RO 

Saved R1 

Saved R6 

Saved R7 

Saved R8 

Saved R9 

Saved R10 

Saved P11 - 
Return PC from VAX$SEDITPC routine 


Output Parameters: 
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The contents of RO through R5 are not important because the 
architecture states that they are UNPREDICTABLE if a reserved 
operand abort occurs. No effort is made to put these registers 
nto a consistent state. 


R6 through R11 are restored to their values when the EDITPC 
instruction began executing. 


po tsee - Offset in packed router array to delta PC byte 
4(SP) = Return PC from VAXS$SEDITPC routine 


Implicit Output: 


This routine passes control to VAXS$ROPRAND where further 
exception processing takes place. 


VAXSEDITPC = VAX-11 EDITPC Instruction Em tation P=1984 235: AX/VMS Macro V04- Page 29 
Vou 800 EDI TPC. ROPRAND. ABOR = Abnormally ‘State p= 1382 85:28:98 YERULA « SRC GAXEDITPC.MAR: 1 : (33) 
1F4 11467 
1F4 1108 EDITPC_ROPRAND_ABORT: 
OFC3 BA Q1F4 114 #°M<RO R1,R6,R7,R8,R9,R10,R11> |; Restore saved E_Pegisters 
bp 1F8 1150 PUSHL #EDITPC _B’DELTA_PC > Store delta-PC 
FEO3" 31 OFA 1151 BRw VAXSROPRARD ; Continue exception handling 
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- SUBTITLE EDITPC_ACCVIO = Reflect an Access Violation 
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Functional Description: 


This routine receives control when an access violation occurs while 
executing within the EDITPC emulator. This routine determines whether | 
the exception occurred while accessing the source decimal string, the 

attern stream, or the output character string. (This check is made 
ased on the PC of the exception.) 


If the PC is one that is recognized by this routine, then the state of 
the instruction (character counts, string addresses, and the like) are 
restored to a state where the instruction/routine can be restarted 
after (if) the cause for the exception is eliminated. Control is then 
passed to a common routine that sets up the stack and the exception 
parameters in such a way that the instruction or routine can restart 
transparently. 


If the exception occurs at some unrecognized PC, then the exception is 
het 9 te to the user as an exception that occurred within the 
emulator. 


There are two exceptions that can occur that are not backed up to 
appear as if they occurred at the site of the original emulated 
instruction. These exceptions will appear to the user as if they 
occurred inside the emulator itself. 


3 1. If stack overflow occurs due to use of the stack by one of 
$ the routines, it is unlikely that this routine will even 

3 execute because the code that transfers control here must 
3 first copy the parameters to the exception stack and that 
3 operation would fail. (The failure causes control to be 

5 transferred to VMS, where the stack expansion logic is 

3 invoked and the routine resumed transparently.) 


2. If assumptions about the address space change out from under 
these routines (because an AST deleted a portion of the 
address space or a similar silly thing), the handling of the 
exception is UNPREDICTABLE. 


Input Parameters: 


Value of SP when exception occurred 

PC at which exception occurred 

scratch 

scratch p 

Address of this routine (no longer needed) 
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Value of RO when exception occurred 
Value of R1 when exception occurred 
Value of R2 when exception occurred 
Value of R35 when exception occurred 
Return PC in exception dispatcher in operating system 
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First longword of system-specific exception data 
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xx(SP) = Last longword of system-specific exception data 


The address of the next bgnguord is the position of the stack when 
the exception occurred. RO locates this address. 


RO => xx+4(SP) 


xx+<4eM> (SP) 
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| 
Instruction-specific data | 
Optional instruction-specific data | 
Optional Wpstrucs tenn spect Tie data 
Return PC from VAXSEDITPC routine (M is the number 


of instruction-specific longwords) 
Implicit Input: 


It is assumed that the contents of all registers coming into this 

routine are unchanged from their contents when the exception occurred. 

(For RO through R3, this assumption applies to the saved register 

contents on the top of the stack. Any modification to these four 

feat eters ve ok be made to their saved copies and not to the registers 
emselves. 


It is further assumed that the exception PC is within the bounds of 
this module. (Violation of this assumption is simply an inefficiency.) 


dee oF the macro BEGIN_MARK_POINT should have been invoked at the 
beginning of this module to define the symbols 


MODULE _BASE 
PC_TABCE_BASE 
HANDLER TABLE_BASE 
TABLE_STZE 

Output Parameters: 


If the exception is eytomn aed (that is, if the exception PC is 

associated with one of the mark points), control is passed to the 
context-specific routine that restores the instruction state to a 
uniform point from which the EDITPC instruction can be restarted. 


RO = Value of SP when exception occurred 
Ri = scratch 
Re = scratch 
R35 = scratch 
R10 - scratch 


VAXSEDITPC is different from the other emulated instructions in that 

t requires intermediate state to be stored in R4 and R5 as well as RO 
through R3. This requires that R4 and R5 also be saved on the stack so | 
that they can be manipulated in a consistent fashion. 
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O(SP) = Value of RO when exception occurred 

4(SP) = Value of R1 when exception occurred 

8(SP) = Value of R2 when exception occurred 

12(SP) = Value of R5 when exception occurred 

16(SP) = Value of R4 when exception occurred 
(SP) = Value of RS when exception occurred 

Bie) - Value of RO when exception occurred 


Value of R1 when exception occurred 
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2(SP) = Value of R2 when exception occurred 
(SP) = Value of R35 when exception occurred 
40(SP) = Return PC in exception dispatcher in operating system 


- IT 
C 10 
1FD 1267 ; 
1FD 1 oe : 
1FD 1 § ; 
if 1971 | pees 
TED rg ; RO => z2(SP) = Instruction-specific data begins here 
1FD 107% ; If the exception PC occurred somewhere else (such as a stack access), ED 
1FD 1275 ; the saved registers are restored and control is passed back to the ED 
JED ! ue ; host system with an RSB instruction. HH 
iE ! 4 ; Implicit Output: HH 
1FD 1 + : The register contents are modified to put the intermediate state of ED 
pee 1281 ; the instruction into a consistent state from which it can be ED 
1FD 1 Hf 3 continued. Any registers saved by the VAXSEDITPC routine are ED 
O1FD 1 $ : restored. ED 
OIF 1585 * ED 
Ha ! a8 - ENABLE LOCAL_BLOCK . 
O1FD 1288 EDITPC_ACCVIO: ED 
7E 54 7D O1FD 1289 MOVa R4,-(SP) ; Store R5 and R4 on the stack ED 
7E 10 AE 7D 0600 1290 MOVQ 16(SP) ,=(SP) j ee. and another copy of R3 and R2 ED 
7E 10 AE 7D 8 4 | 31 MOVQ 16(SP) ,=(SP) 3 ee. and another copy of R1 and RO cs 
52 Dd& 0208 1 38 CLRL R2 : Initialize the counter ED 
FOF2 CF 9F O20A 1294 PUSHAB MODULE_BASE ; Store base address of this module ED 
51 8E C2 8 of : 32 SUBL2 (SP)+,R1 3; Get PC relative to this base HH 
OOOO'CF42 5i B81 QO211 1297 10$: CMPW R1,PC_TABLE_BASECR2] : Is this the right PC? ED 
OD 13 0217 1298 BEQL $ : Exit loop if true ED 
F452 1B F2 $619 ; 4 AOBLSS #TABLE_SIZE,R2,10$ ; Do the entire table 4 
8 1D 1301 ; If we drop through the dispatching based on PC, then the exception is not ED 
1. ! 8 3 one that we want to back up. We simply reflect the exception to the user. 4 
5E 0 0 6 1D 1304 208: ADDL #16,SP ; Discard duplicate saved RO .. R3 EN 
54 8E «07D COO 20 1 05 MOVO = (SPS+,R4 ; Restore R4 and R5 EO 
OF BA QO 1306 POPR #°m<rO,R1,R2,R3> 3; Restore saved registers EO 
05 02 2 : be RSB 3; Return to exception dispatcher HY 
6 1309 ; The exception PC matched one of the entries in our PC table. R2 contains EO 
6 1310 ; the index into both the PC table and the handler table. R1 has served EO 
: i} 3; its purpose and can be used as a scratch register. A 
51 QO00'CF42 3C 6 1 8 30$: MOVZWL HANDLER_TABLE BASECRED Ri 3; Get the offset to the handler EO 
FOCF CF41 = =17 f ! \3 JMP MODULE _BASECRT ; Pass control to the handler HY 
=-- 16 : In all of the instruction-specific routines, the state of the stack EO 
1 1317 ; will be shown as it was when the exception occurred. ALl offsets will EO 
1 1318 ; be pictured relative to RO. 


aaMmmMmmM 
—-—-OO0S 


VAXSEDITPC = VAX=11 EDIT 
vO4=600 
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n While Reading Input Dig 5-SEP-19 EMULAT.SRCJVAXEDITPC.MAR; 1 1) 
: » SUBTITLE Access Violation While Reading Input Digit 

; EO_READ Packing Routine 

: Functional Description: 


This routine executes if an access violation occurred in the EO_READ 
subroutine while accessing the input packed decimal string. 


; Input Parameters: 

RO = Address of top of stack when access violation occurred 
Return PC to caller of EO_READ 

Return PC to main VAX$EDITPC control loop 


Saved 
Saved R1 


wevwr 
seee 


; Output Parameters: 


3 If the caller of this routine a recognized restart point, the restart 
: code is stored in EDITPC_B_STATE in the saved register array, the 

3 psuedo stack pernser RO 7s advanced by one, and control is passed to 
g the general EDITPC_PACK routine for final exception processing. 

R 

R 


RO is advanced by one longword 


00(RO) = Return PC to main VAXSEDITPC control loop 
04(RO) = Saved RO 
wothes - Saved R1 

etc. 


EDITPC_B_STATE(SP) = Code that uniquely determines the caller 
of EO_READ when the access violation was detected. 


A. AINIAININI AANA IAAI AI ANNAN AINA AAAI AAI AIAN 


If the caller's PC is not recognized, the exception is dismissed from 
further modification. 


PAAAARANAN AAA AAI Be Be BE EE AWA AAAAIOPORINIPININININD 0 


BALAN (QO ODNAULAR! = SWODNAMNES WIN 9 OD NAUE WW OO ODNAULS WI OWOONAOULSWN—O OF 


PIP PINININIPINIPDNYNIPDININIPIPINININIPINIPIPYPIPIPIPINPINPYAPIPYPIPOPYIPYPIPINPIPIPUPIPYPIPYIPIPPPOPOPUPNIPUNPD 
AANA AA AAAI AIWIAIAIAI NAAN AI AIA AAAI IWAN ANIA NININI AINA AAAI 


SOOOCOOCOOOOOOSOOOCOCOOOOOOCOCOOOOOSOOOOSOOOOCOOOOOOOOOOOOOoOO: 


EAD_1: 
EAD_2: 
524 CLRL R2 ; Set table index to zero 
FOC9 cr OF PUSHAB MODULE_BASE : Prepare for PIC arithmetic 
51 3 3 C3 Ste SeP25 -URODS 1 3 R1 contains relative PC 
a Je C 2 SUBL #3,R1 ; Back up over BSBW instruction 
0000'CF42 51 81 67 40$:  CMPW  R1,RESTART_PC_TABLE_BASECR2] =; Check next PC offset 
06 13 44 6 BEQL : Exit loop if match 
F452 OC Fe re § AOBLSS #RESTART_TABLE_SIZE,R2,40$ ; Check for end of loop 
SA 71 ; If we drop ehrouge this loop, we got into the EO_READ subroutine from 
4A 72 : other than one of the three known call sites. We pass control back to 
2 4 3 the general exception dispatcher. 
D1 Oso r, 4 BRB 20$ ; Join common code to dismiss exception 


Aceess Violation Unf Le Re Sorta "SrSEP=1SBS Bd:28:46 HERGUAE. SRESVAKED IPC Aman; 1 "28° (34) 


3; store the rest of the inst ruction state | nto the saved register array. 
ASSUME EDITPC_V_STATE EQ 0 
: ADDBS = #1,R2,EDITPC_B STATE(SP) : Restart code base is 1, not 0 


INCW EDIT W_SRCCEN(SP) ; ig t never got read 
BRB ; Make sure that R8 is saved 


i Store the restart code ape ropriate to the return PC and join common code to 


C 
3 
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. SUBTITLE Access Violation While Executing Loop 
Packing Routine for Storage Loops 


VAXSEDITPC = VAX-11 EDI 
vOn2000 Access Viola 


-- 


Functional Description: 


ALL of the Following labels are associated with exceptions that occur 
inside a loop that is reading digits from the input stream and 

opt jones ly storing these or other characters in the output string. 
While it is a trivial matter to back up the output pointer and restart 
the loop from the 2 ipod it is somewhat more difficult to handle 
all of the cases that can occur with the input packe dec tmp) string 
(because a byte can contain two digits). To avoid this complication, 
we add the ability fo restart the various loops where they left off. 
In order to accomplish this, we need to store the loop count and, 
optionally, the latest input digit in the intermediate state array. 


The two entry points where the contents of R7 (the last digit read 
from the input stream) are significant are MOVE 2 and FLOAT_3. ALL 
other entry points ignore the contents of R7. (Note that these two 
entry gotnte exit through label 60$ to store R7 in the saved register 
array. 

Input Parameters: 
RO - Address of top of stack when access violation occurred 
R7 = Latest digit read from input stream (MOVE_2 and FLOAT_3 only) 
R8 - Remaining loop count 
0O(RO) = Return PC to main VAX$SEDITPC control loop 
04(RO) = Saved RO 
08(RO) = Saved R1 

Output Parameters: 
A restart code that is unique for each entry is stored in the saved 
register ervey. The loop count (and the Latest input digit, if 
appropriate) is also stored before passing control to EDITPC_PACK. 


EDITPC_B_STATE(SP) = Code that uniquely determines the code that 
was executing when the access violation was detected. 


EDITPC_B_EO_READ_CHAR(SP) = Latest digit read from the input string 
EDITPC_B_LOOP_COUNT(SP) = Remaining loop count 

Side Effects: 
RO is unchanged by this code path 


ASSUME EDITPC_V_STATE EQ 0 


Abe AbeAl 
QDOPVDVDVDVDV IVP SVPVIVIUDVDPUPUSUSUSUSVUSTUSUSUSUSUS USUI SUSU ISIS SUSISUSIS USS IUSISIOS IAS IOSIOSIASISIOS SISSON 
FF PLWH AMHAIWIWIDININININININININIDN 3 2 2 2 SO | SH QDOOOCOOOCOCOCOOOOOOOOOOO@@M@ —-U 
MRS OODNOA NEU @ OOD NAU EWN SO OD NOA UE WN 0 OD NAME WN OOONAOUES WN O0OnG OF 


ec ce ce ec ce ee ce ce ce ec a ed ed ed od od od 3 od dd 3 dd 
Pe oe oe oe oe oe oe oe oe ee oe oe oe oe oe oe oe oe oe oe ee oe ee ee ee ee ee ee ee ee ee ee ee ee 


Sooooococooocoocooooocooooooooooooooooooooooooooooo 
kh hell ehh ed edb edich cb edich edt reba elisha edict dicta diaesdlta edited ediada edith edit edie lide adih “edb elude alah “edb adh “shh “ahh “shh “shh dh ach ahh “ehh dh edb ath el) 


POP OPOPONOPOPIPONONIPININIPINOPOPOPIPIPOPOPOPOPONINIPONIPONIPONIPIPIPONOND 


-"" MOVB = #FILL_2_RESTART, EDITPC_B_STATE(SP) 
BRB 708 


BLANK_ZERO_ 2: 
MOvB 
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8 1963 
B 1444 MOVE_2: 
12 AE 93 79 B 1445 MOVB SHOVE .£_RESTART EDS TPC _B_STATE (SP) 
245 F 1208 BRB 60 
1 144 
1 14468 MOVE_3: 
12 AE 96 90 14 MOVB #MOVE_3_RESTART,EDITPC_B_STATE(SP) 
c 1? BRB 70$ 
ef 1452 FLOAT_2: 
12 AE 08 90 7 14 MOVB  #FLOAT_2_RESTART,EDITPC_B_STATE(SP) 
1 11 $8 1454 BRB 60$ 
D 1455 
6D 14 § FLOAT_3: 
12 AE 09 90 $9 145 MOVB #FLOAT_3_RESTART,EDITPC_B_STATE (SP) 
oc = 1 1328 BRB 60$ 
73° «145 
73 1460 FLOAT_4: 
12 AE OA 90 0273 1461 MOVB #FLOAT_4_RESTART,EDITPC_B_STATE(SP) 
OA 11 7 1306 BRB 70$ 
79 «146 
79 «1464 
12 AE OB 90 79 1465 #BLANK_ZERO_2_RESTART,EDITPC_B_STATE (SP) 
046 «11 gp 1098 BRB 70$ 
01 AE 57 90 7F 1468 608: MOVB R7,EDITPC_B_EO_READ_ CHAR(SP) ; Save result of latest read 
13 AE 58 90 0283 1469 70S: MOVB R8,EDITPC_B-LOOP_COONT (SP) ; Save loop counter 
16 11 0287 1470 BRE 80$ 


nda‘ initiacizet sta SSEp=198¢ 00:25:95 LERULAT.seavaxenitec.man;1 2° (35) 


VAXSEDITPC = VAX-11 E C 
you~ 000 ; 
. SUBTITLE Access Violation in Initialization Code 


Access Vio 


a 


Functional Description: 


ITP 
ati 
14 
1475 ; 
Bice 
2 1428 : ~ oy usqtecien at EDITPC_1 indicates that the byte gg te the 
1477 ; eign of . saput packed Ge tial string could not be read. There is 
9 1478 3 ittle s t9 preserve. The key step here is to store a restart code 
9 1479 ; thes different ates this exception from the Large number that can be 
2 1? ? : posserees at the top of the command Loop. 
, 1 ¢ : Input Parameters: 
9 1484 : 0(RO) = Saved RO 
9 1485 ; 4(RO) = Saved R1 
4 1? $ $ etc. 
6 4 tt : Output Parameter: 
0289 1490 : EDITPC_B_STATE(SP) = Code that indicates that instruction should 
8 4 103) $ e restarted at point where sign ‘digit’ is fetched. 
0 89 1498 : ASSUME EDITPC_V_STATE EQ 0 
89 1495 EDITPC_1: 
12 AE 01 90 0289 1496 MOVB #EDITPC_1_RESTART,EDITPC_B_STATE(SP) 
13 11 028D 1497 BRB EDITPC_PACK 


VA) 
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99 . SUBTITLE Simple Access Violation 

Functional Description: 
This routine handles all of the simple access violations, those that 
cqn be backed up to the same intermediate state. In general, an access 
violation occurred in one of the simpler routines or at some other 
point where it is not difficult to back up the EDITPC operation to the 

: top of the main dispatch Loop. 

; Input Parameters: 


R3 - Points one byte ye current pattern operator (except for 
REPLACE_SIGN_2 where it is one byte further along) 


TOP_OF _— (Return PC to main VAX$EDITPC control Loop) 
Saved R 
Saved R1 


R3 must be decremented to point to the getters operator that was being 
processed when the exception occurred. The return PC must be 
‘discarded’’ to allow the registers to be restored and the return PC 
from VAXSEDITPC to be located. 


R3 - Points to current pattern operator 
00(RO) - Saved RO 
04(RO) = Saved R1 
etc. 
; Output Parameter: 
EDITPC_B_STATE(SP) - The restart point called EDITPC_2 is the place 


from which all ‘'simple’’ access violations are restarted. 


; Output Parameters: 
: This is essentially the location TOP_OF_LOOP. 


END_FLOAT_1: 


05 5B 00 €4 BBSC #PSL$V_C.R11,75$ ; Clear saved C-bit before restarting 
03 «(11 BRB 75 
REPLACE_SIGN_2: 
OC AE 07 DECL EDITPC_A_PATTERN(SP) 3; Back up to “‘length"’ byte 


STORE_SIGN_1: 
FILL_1: 


PRIPDPIPIPPIPIPIAPINPIAINPIPYAINYDIPIDIPINIPIPINIPIPIPINIPIPIPODIPIPIPUNIPUAIPINIPIPIPIPIPIPIPUPIPIPINPIPMNINIPININYD 


WOOOO0O0O000000 OOO 0900 00 00 Cd G9 9 GD GD CD OD CD Gd OD C9 CD CD CD CD CD OD GD CD CD GD CD CD Cd 09. CD C9. 00 CD OD CD CD OD CD CD CDCD 


a ed ed ed et ed ss sb — 4 — 4 4 — 2 2) — — bb ds bs as ~~ — 2 bd 4 2) a — od a nt st te tt 


PPP tenets ee te Leal tatal te bales ieee ie ten ieee a fen a ft fon ns fon fn Son fn ns nes Ee ie ies teste tate te hh hh ke keke eg e pas 


SOOOOOCOOOOOCOOSOOSOCOOOCOOOOOOOOOOOOOOOOOOOoOoOoOO 


$ 
$ ; We should never get here but ... 


vain 


4 10 
= VAX-11 EDITPC Instruction Emulation 
Simple Access = 


3 LOAD. KXXK_1: 
§ LOAD. KXKK_2:3 


75$: DEC 


EDITPC_2: 
MOVB +44 


IT 
TP 
80$: ADDL #4,R0 ~ 


MMOVNT"S 


Ht MOVE _1 

i Gre 1 

H { em se.) 
1364 REPLACE _SIGN_1: 
1 

1 

1 

1 

1 

15 

15 

15 

15 

15 

15 

15 

15 

15 


ooooo 


- DISABLE 


2_REST 
_B_STATE (SPs 


3; Discard return PC 


3; Store special restart code 


SSEP=19B¢ 80:25:96 LERGUAT. SRESVaXeDI Pc.man; 


Pa 9 
1 Page 32, 


EDITPC_A_PATTERN(SP) ; Back up to current pattern operator 


3 «+. and drop through to EDITPC_PACK 


LOCAL BLOCK 


| 
2 EE 


PC Instr 


u 
tore ED 
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«SUBTITLE EDITPC_PACK = Store EDITPC Intermediate State 
Functional Description: 


VAXSEDITPC = VAX 
vo0-000 EDITP 


am 
xo 
ae 
‘— 


ct 
IT 


> 


This routine stores the intermediate state of an EDITPC instruction 
that has been prematurely terminated by an access violation. These 
Segept tons and illegal pattern operators are the only exceptions from 
which execution can continue after the exceptional condition has been 
cleared up. After the state is stored in the registers RO through R5, 
control is transferred to VAXS$SREFLECT_FAULT, where the appropriate 
backup method is determined, based on the return PC from the 
VAXSEDITPC routine. 


Input Parameters: 


RO = Current digit count in input gt 
Ri = Address of next digit in input string 
R2 = Fill character 

R3 = Address of current pattern operator 
R4 = Sign character (stored in R2<15:8>) 
R5 = Address of next character_to be stored in output character string 
R9 = Zero count (stored in RO<31:16>) 

R11 = Condition codes 

0O(RO) = Saved RO 

04(RO) = Saved R1 

08(RO) = Saved R6 

12(RO) = Saved R7 

16(RO) = Saved R8 

gy tag - Saved R9 

4(RO) = Saved R10 

g5 (80) - Saved R11 

2(RO) = Return PC from VAXSEDITPC routine 


Output Parameters: 
RO - Address of return PC from VAX$SEDITPC routine 
00(RO) - Return PC from VAXSEDITPC routine 


3 tt  HQDOODOOOOO0 OOO O00 0000 0000000000000 00000000 


AMALFI $9 OONOAU EWN 9 OD NAME WIN 0 OD NAME WIN 3 9 OD NOU EWN OOO NAOUSWNO YO 


POPIPIPOPIPOPINIPININININDINPININYIAINININININININININIPININNOPIPoPoPofponynornrpnyny ft — 


FPPPPPPYrrrYr rrr rrYrrrrrrrrrrrYrrrrrrr,r,rrrrrrr Yr Yr rrrrr v- 


PIPIPIPIPINIPIAIMINIPINPMURIMNIPININININININIPINIPINIPNIPINIPYINIPINIPIAIPIPIPIPPINPNINIPIPIPIPIPINYINIPIPINPY 


Some of the register contents are dictated by the VAX architecture. 
Other register contents are architecturally described as ‘implementation 
dependent"’ and are used to store the instruction state that enables it 
to be restarted successfully and complete according to specifications. 


The following register contents are architecturally specified 


a tk et a te a sb = = a a 4 sd — 2 ds 2 as as 8 ts a a 


SOOOSOOOSOOOSOOOOOSOSOOOOOCOCOOOOSS OOOO SOOCOCOCOCOOOOOCOOOOOCOOOOOOOOOOOOoOO 
DARED PADA ADA DED DDD DED De DDD D. DS DS DDS DD. DS DDS DD DDD DS TTT 


A 

A RO<15:00> - Current digit count in input string 

A RO<31:16> - Current zero count (from R9) , 

A R1 - Address of next digit in input string 

A R2<07:00> - Fill character 

a R2<15:08> - Sign character (from R4) 

A R - Address of current pattern operator : 

“ R - Address of next character in output character string 

: The following register contents are peculiar to this implementation 
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A2 1637 ; ass <23:16> = Delta-PC (if initiated by exception) 
Ae 16 § 3 R2<51:24> = Delta srceddr (current srcaddr minus initial srcaddr) 
Ad 1639 ; R4<07:00> = Initial digit count (from saved 
O2A2 1640 ; R4<15:08> - Saved are tion codes (for easy retrieval) 
8 Ad 1641 ; R4<25:16> - State flags 
A 1006 3 gente field determines the restart point 
8 A2 1645 ; FPD bit is set 
Ad 1644 ; ACCVIO bit is set 
8 = 196? 3 R4<31:24> = Unused for this exception (see access violations) 
G2A 1669 : The condition codes are not architecturally Nevie t by the VAX 
8 A 1968 : architecture for an access violation. The following list applies to 
8 “ 1808 3 some but not all of the points where an access violation can occur. 
Q2A2 1651 ; PSL<N> = Source string has a minus sign 
Osa 1636 3 PSL<Z> = ALL digits are zero so far 
O2A2 1653 ; PSL<V> = Senaect digits have been lost 
O2A2 1654 ; PSL<C> = Significance 
O2A2 1655 ;- 
O2A2 1656 
OeAg 1657 ASSUME EDITPC_L_SAVED_R1 EQ <EDITPC_L_SAVED_RO + 4> 
O2A2 1658 
O2A2 1659 EDITPC_PACK: 
O2A2 1660 
OSAS 199) ; Now start stuffing the various registers 
02 AE 59 BO O2A2 1808 MOVW R9,EDITPC_W_ZERO_COUNT (SP) ; Save RO in RO<31:16> 
09 AE 54 90 Q2A6 1664 MOVB R4 ,EDITPC_B_SIGNTSP) 3: Save R4 in R2<15:8> 
52 80 7D O2AA 1665 mova (RO) +,R2 : Get initial RO/R1 to R2/R3 
10 AE 26 90 O2AD 1666 MOVB Re. EDITPC_B_INISRCLEN(SP) 3; Save initial value of RO 
53 OG AE 5 C3 02B1 1667 SUBL3) R3,EDITPC_A_SRCADDR(SP) ,R3 ; Calculate srcaddr difference 
OB AE 53 90 02B6 1668 MOVB R3,EDITPC_B DELTA oot tl ; Store it in R4<15:8> 
11 AE 5B 90 O2BA 1669 MOVB R11,EDITPC_6 SAVED PSw(SP) : Save condition codes 
12 AE 10 88 pg8E 1600 BISB #EDITPC_M_ FPB ,EDITPC_B_STATE(SP) 3; Set the FPD bit 
02C2 19%6 ; Restore the remaining registers 
O02C2 167 
56 80 7D oscg 1674 mMOVQ (RO)+,R6 ; Restore R6 and R7 
58 80 7D 0Q2C5 1675 MOVQ (RO)+,R8 3 «ee and RB and RI 
5A 80 7D osce 1978 MOVQ (RO)+,R10 3 eee and R10 and R11 
Sat4 1978 : Get rid of the extra copy of saved registers on the stack 
10 AE 8E 7D sce 1989 mova (SP)+,16(SP) : Copy the paved RO/R1 pair 
10 AE 8E 7D CF 1681 MOVQ baaks” 16 (SP) 3 ee. and the saved R2/ pair 
54 8E 7D + 1086 MOVa (SP)+.R4 ; R4 and RS can be themselves 
0 be ieee ; R1 contains delta-PC offset and indicates that FPD gets set 
51 CO00030A 8F dO 8 D6 1O86 MOVL hig B. DELTA_ PCi- . bocars delta-PC offset 
DD 19 PACK Pot ; Set FPD bit in exception PSL 
8500 1688 PACK M- ACCVIO> R1 : Indicate an access violation 
FD20' 31 O2DD 1689 BRW VAXSREFLECT_FAULT ; Reflect fault to caller 
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“ . SUBTITLE EDITPC_RESTART = Unpack and Restart EDITPC Instruction | 
; Functional Description: 


VAXSEDITPC = VAX 
v04=600 EDIT 


This routine receives control when an EDITPC instruction is restarted. 
The instruction state (stack and general registers) is restored to the 
point where it was when the instruction (routine) was interrupted and 
control is passed back to the top of the control loop or to another 
restart point. 


Input Parameters: 
31 23 15 07 00 


+oeeeeeecan eeeceseceee tower er mee meen enn fp eee rw eee meee eens + eoeeeeroeoeeeoeooecen + 

H zero count ' srclen + : RO 

peer nwa n ome ewrneam pono nnwonnr am oan poem w wen ow eam ma aa bee Oe + 

H srcaddr : : R1 
two amnoer eames be ee oe ee oe oe ee oe ee ae oe me ee ee me ee + 

: delta-srcaddr H delta-PC H sign H fill : : R2 


} $ pattern ‘ t : R3 
; Loop-count state ‘ saved-PSW H inisrclen H : R4 
' dstaddr + : RS 
powowoooocoenonooe $ewowowoooeoooene poco ow een mes eneee pees ese eee ssees + 


os gg on where the exception occurred, some of these “pages a, 
may not be relevant. They are nevertheless stored as if they were 
valid to make this restart code as simple as possible. 


These register fields are more or less architecturally defined. They 
are strictly specified for a reserved operand fault (illegal pattern 
operator) and it makes sense to use the same register fields for 
access violations as well. 


RO<07:00> - Current digit count in input string 
(see EO_READ_CHAR below) 
RO<31:16> = Current zero count (loaded into R9) 
Address of next digit in input string 
R2<07:00> 


Fill character 
het 
R 
RS 


Sign character (loaded into R4) | 
Address of next pattern operator 


Address of next character in output character string 
These register fields are specific to this implementation. 
RO<15:08> - Latest digit from input string (loaded into R7) 
: - Size of instruction (Unused by this routine) 
:24> - Delta srcaddr (used to compute saved R1) 
: - Initial A count (stored in saved RO) 
- Saved condit 


PSL<N> - Source string has a minus sign 
PSL<Z> - ALL digits are zero so far 


ion codes (stored in R11) 


PSL<V> = Nonzero digits have been lost 
PSL<C> = Significance 
R4<23:16> = State flags 


NOUS WN 0 OD NAUE WIN SO OO NAMES WIN O OD NAUE WN CO ODNOAU EWN O OONOUE wr 


ee ee ee ee ee eee ee ee ee ee ee ee eee ee ee ee ee ee ee ee 
PRLS EEF PWIA AAI WIGRDIDININININIPININID 2 PS MDOOOOOOOOOWOOOOOOOO —vJ 
Se Se Oe Oe Be Oe Sse Se Ge Ge Ge Be Se Ge Ge Bete Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Ge Be Ge Fe Se Fe Ge Ge Ge Ge Se Ge Se Ge Be 


' 
| 
| 
| 


o 


VAXSEDITPC = VAX 
04600 EDI te 
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State field determines the rgarere point 
R4<31:24> = Loop count (loaded into R8) 


OO(SP) = Return PC from VAXS$EDITPC routine 
Implicit Input: 


Note that the initial “‘srclen’’ is checked for Legality before any 
restartable Sugege tan can occur. This means that RO LEQU 31, which 
leaves bits <15:5> free ig" sioring intermediate state. In the case of 
an access violation, RO<15:8> is used to store the Latest digit read 
from the input stream. In the case of an illegal pattern operator, 
ae are not used so that the architectural requirement that 
RO<15:0> contain the current byte count is adhered to. 


Output Parameters: 


ALL of the registers are loaded, even if some of their contents are 
not relevant to the particular point at which the instruction will be 
restarted. This makes the output of this routine conditional on a 
single thing, namely on whether the restart ey: is in one of the 
pat ern-specific routines or in_the outer VAX$EDITPC routine. This 
comment applies especially to R7 and R8. 


| 
Address of next pattern operator | 
| 


RO = Current digit count in input strin 

Ri = Address of next digit in input string 

: - Fill character 

R4 = Sign character (stored in R2<15:8>) 

- oy roee of next character to be stored in output character string 

- Scratc 

R7 = Latest wht a read from input packed decimal string 

R8 = Loop coun 

R9_ = Zero count (stored in R0<31:16>) ra. Ps 
R10 = Address of EDITPC_ACCVIO, this module's ‘'condition handler 
R11 = Condition codes 
QO(SP) = Saved RO 

04(SP) = Saved R1 

O8(SP) = Saved R6 

12(SP) = Saved R7 

16(SP) = Saved R8& 

O(SP) = Saved R9 

4(SP) = Saved R10 

8(SP) = Saved R11 

2(SP) = Return PC from VAXSEDITPC routine 


Side Effects: | 
R6 is assumed unimportant and is used as a scratch register by this | 
routine as soon as it is saved. 


VAXSEDITPC_RESTART:: 
PUSHR 


MMM MMM MMMM MMH MMMM MMMM MMMM MM MMMM MMM MMMM MMM MMM MmMmMmMmMmMmMmmMnmMmmmnmnnn wa 
DFOOOSOCOOCOCOCOCOCOCOCOOCOCOSOOSOOC COCO OCOCO COCO OCOCOC OOOO OOCOOOOOOOOOOOSCOOO 
em ee ee ed ed oe oe od Sw 2 = 2 = = = os 6 2 os 4) 4) — 9 1) > > 
fete te ele ke ee 
DOSOOOCOOOOOOO WO 0000090909 69 09 09 09 09 SI NINN NN NIAAA AA AAAAAMMIMIMIVIMIVIVIVIN EE 
PAR O OO NAUE WN 0 OD NAME WIN 9 OO NAW EWN) OO OO NAME WP OUOONAU ES Wn O00 


PIRIPPIPIPINGPIPIPININYINIMYPINININIPIPYNININININPIPUNINPINININININININININIPoPoPoNnonononrofrofnronopopoporosfprrrrnrrn | — 


COOOOO]S DBOOOCCOOSOOOCOCOOOCOOSOOOSOOCOOCOOOOSCOOOOOOOOOOSCOOOOOOOOOOOoOoO -! 


OFFF 8F 8B #*M<RO,R1,R2,R3,R4,R5,R6,R7,RB.RI-RI0,R11> ; Save them all 
ESTABLISH_HANDLER EDitPc_accvio ° ; Reload R10 with handler address 
50 50 9A MOVZBL RO,RO ; Clear out RO<31:8> 
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VAXSEDITPC = VAX-11 EDITP SEP=1 1: AX/VMS Macro V04-00 Page 
vOue000 EDITPC_RESTART = Unpack and Restart EDIT $7355 19 3be 89; 33: %§ LEMULAT. SREIVAXEDITPC.MAR: 1 . 
54 09 ar 9A EC 1805 movzeL EDITPC_B _SIGN(SP) ,R4 ; Put “‘sign’’ back into R4 
8 EF FO 1 § EXTZV peDI TEC. STATE,= 
4 fz #EDITPC_S_STATE,- 
56 12 AE 6 F3 08 EDITPC_B_ SSTATECEPD, R6 ; Put restart code into R6 
F6 1810 ; The following two values are not used on all rosters (oaths but R7 and R8 
F6 1811 ; are loaded unconditionally to make this routine si ¥ er. od most extreme 
4 ! \ ; example is that R7 gets recalculated below for the EDITPC_1 restart point. 
57 0O1AE 9A F6 1814 MOVZBL EDITPC_B_EO_READ So gp R7 ; Get latest input digit 
58 #13 AE 9A OFA 1815 MOVZBL EDITPC~B-LOOP_COONT ) RB ; Restore loop count 
59 0¢ AE 2 FS 1 18 CVTWL 4 EDITPC_W-ZERO- COUNT (SP) <R ; Reset zero count (R9 LSS 0) 
5B «11 «AE A 8 be 4 MOVIBL EDITPC_B_SAVED_PSw(SP), ai? ; Restore saved condition codes 
0306 1333 ; The next four instructions reconstruct the initial values of ‘'srclen’’ and 
6 1820 ; ‘'srcaddr’’ and store them on the stack just above the saved R6. These values 
Bebe 1821 ; will be loaded into RO and R1 when the instruction completes execution. 
0306 18 ¢ ; Note that these two instructions destroy information in the saved copy of 
0306 1823 ; R4 so all of that information must be removed before these instructions 
O306 jaag | xecutes 
14 AE OB AE 9A 0306 1826 MOVZBL EDITPC_B_DELTA_ Dietce EDITPC_L_SAVED_R1(SP) 
14 AE C3 0308 1827 SUBL EDITPC_L_SAV ce Biase 
04 AE O30E 1828 EDITPC_A_ ante Ph ya - 
14 AE 0310 1829 EDITPC-L-SAVED_R1(SP35 
10 AE 10 AE 9A 31 \8 ? MOVZBL EDITPC_B_ ~TNISROLENCSP) , EDITPC_L_SAVED_RO(SP) 
0317 1833 ; The top four longwords are discarded and control is passed to the restart 
0317 1833 ; point obtained from the restart PC table. Note that there is an assumption 
0317 1834 ; here that the first two restart points are different from the others in that 
b3i2 1332 3; they do not have an additional return PC (TOP_OF_LOOP) on the stack. 
=. Ww & gat7 1839 ADDL ecOrTPc at SAVED_RO,SP : Make saved registers RO, R1, R6, ... 
01 56 01 314 1838 CMPL B HEDITPC | RESTART ; Check for restart in main routine 
06 18 0O31D 1839 BLEQU 8 3; Branch if no return PC 
FD2D CF OF O31F 1840 PUSHAB TOP_OF_LOOP ; Restart in some subroutine 
08 11 b358 13) BRB 208 3; Use common code to resume execution 
0325 18¢8 ; EDITPC_1 is a restart point where R7 must contain the address of the byte 
0325 1844 : that contains the sign ‘‘digit’’. This address must be recalculated. Note that 
83 : 1942 3; this calculation overwrites the previous R7 restoration. 
57 50 04 01 EF 0325 1849 108: EXTZV -#1,44,R0,R7 ; Get byte offset to end of string 
ss Hh «6 0 ; 1848 ADOL R1,R7 : Get address of byte containing sign 
56 FFFE'CF46 36 4 1850 20$: MOVZWL RESTART_PC_TABLE_BASE-2(R6],R6 ; Convert code to PC offset 
FCC8 CF46— 3° ! 2] JMP MODULE _BASECR6 : Get back to work 
Be 1388 END_MARK_POINT EDITPC_M_STATE 
03 1855 - END 
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VAXSEDITPC 


Symbol table 
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! Psect synopsis ! 


fam mre sr eeomeeeeeoa$ 


PSECT name Allocation PSECT No. Attributes 
S 000 ( 0.) 0( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
00 ( -) 01¢ 1.) NOPIC USR CON ABS LCLN EXE RD WRT NOVEC BYTE 
VAX$CODE 00 ( 824.) “ ( ¢:) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
000036 (« 54.) ( 3.) PIC USR CON REL LCL SHR NOEXE RD NOWRT NOVEC BYTE 
HANDLER_ TABLE 990000 6 ( 54.) 04 ¢ 4.) PIG USR CON REL LCL SHR NOEXE RD NOWRT NOVEC BYTE 
RESTART _PC_ TABLE 000018 («( 24.) 05 ¢ 5.) PIC USR CON REL LCL SHR NOEXE RD NOWRT NOVEC BYTE 
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H Performance indicators ; 


Phase Page faults CPU Time Elapsed Time 
Initialization 10 00:00:00.0 00:00:06 32 
pennene processing 71 888008" 1 0:00:03.36 
s 1 160 00:00:05.7 0:00:17.88 
Synbol table sort 0 os SS 0:00:00.68 
s2 320 00:00:03.6 00:00:10.65 
Syabot table output 12 00:00:00.10 00:00:00.26 
Psect synopsis output 2 00:00:00.03 00:00:00.17 
Cross-reference output 2 00:00:00.00 00:00:00.00 
Assembler run totals 57 00:00:10.30 00:00:35.34 


The working set Limit was 1500 pages. 
222 bytes (67 pages) of virtual memory were used to but ier. the intermediate code. 
{here were 20 pages of symbol table space allocated to hold 158 non-local and aa local symbols. 
1855 source Lines were read in Pass 1, "see" 23 object records in Pass 2. 
20 pages of virtual memory were used to define 17 macros. 


Macro Library name Macros defined 
~B522SDUACE: ESyscta: OBJ JVAXMACROS.MLB; 1 8 
“$255$DUA2 SYSLIGISTARLET. MLB; 2 ; 

TOTALS ‘all Libraries) 1 


256 GETS were required to define 13 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:VAXEDITPC/OBJ=O0BJ$:VAXEDITPC MSRC$:VAXEDITPC/UPDATE=(ENH$: VAXEDI TPC) +LIB$:VAXMACROS/LIB 
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